﻿<%
dim ComeUrl,cUrl,Admin,AdminID
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
	response.write "<html><head><meta http-equiv='content-type' content='text/html;charset=utf-8' /></head><body><br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p></body></html>"
	response.end
else
	cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
	if mid(ComeUrl,len(cUrl)+1,1)=":" then
		cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
	end if
	cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
	if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
		response.write "<html><head><meta http-equiv='content-type' content='text/html;charset=utf-8' /></head><body><br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p></body></html>"
		response.end
	end if
end if

set admin=new adminObj
admin.AdminObjByStatus()

if admin.isnull() then
    response.redirect "signin.asp?rurl=default.asp"
	response.End()
end if


function checkTab(byval arg0,byVal arg1)
    if cint(arg0)=arg1 then
        checkTab="tabb"
    else
        checkTab="taba"
    end if
end function
%>